home *** CD-ROM | disk | FTP | other *** search
/ PC User 2003 July / Disc 1 / PCU0703CD1.iso / software / online / files / imacros.exe / EXTRACT-2-FILE.VBS < prev    next >
Encoding:
Text File  |  2002-09-17  |  1.3 KB  |  57 lines
  1. 'Note: EXTRACT requires Internet Explorer 6.0 or better to be installed 
  2.  
  3. Dim MyArray
  4. Dim objFileSystem, objOutputFile
  5. Dim strOutputFile
  6. Dim pos
  7.  
  8. Const OPEN_FILE_FOR_APPENDING = 8
  9.  
  10. ' generate a filename based on the script name
  11. strOutputFile = "./extracted-data.txt"
  12.  
  13. Set objFileSystem = CreateObject("Scripting.fileSystemObject")
  14.  
  15. Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
  16. 'Note: Use ....CreateTextFile(strOutputFile, FALSE) to append data to the file
  17.  
  18.  
  19. set iim1= CreateObject ("iimwsh.iim")
  20. iret = iim1.iimInit()
  21.  
  22.  
  23. For num = 1 To 3 
  24.    str = cstr(num)  'Convert integer to string
  25.    iret = iim1.iimDisplay("Listing No: " + str)
  26.  
  27.    pos = num + 4'start at 5: Offset for POS= statement
  28.    str = cstr(pos)  'Convert integer to string
  29.    iret = iim1.iimSet("-var1", str) 'Select a new link for each run
  30.  
  31.    iplay = iim1.iimPlay("wsh-extract-2-file")
  32.    data = iim1.iimGetLastMessage()
  33.    If iplay = 2 Then
  34.       MyArray = Split(data, "[EXTRACT]")
  35.       s =  """" + MyArray(0) + """,""" + MyArray(1) + """,""" + MyArray(2) + """,""" + MyArray(3)  + """"
  36.    objOutputFile.WriteLine(s)
  37. End If
  38.  
  39.    If iplay = 1 Or iplay < 0 Then
  40.       MsgBox "Error!"
  41.    End If
  42. Next
  43.  
  44. iret = iim1.iimExit
  45. objOutputFile.Close
  46. Set objFileSystem = Nothing
  47. WScript.Quit(0)
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.